home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / tbbs / prgsourc.zip / HOMES.ZIP / PEXT.PRG < prev    next >
Text File  |  1996-01-07  |  2KB  |  80 lines
  1. PROCEDURE pext          
  2.  
  3. PRIVATE x
  4.  
  5. DECLARE aext[15]
  6. aext[1] =  "Aluminum siding  "
  7. aext[2] =  "Brick            "
  8. aext[3] =  "Brick and Siding "
  9. aext[4] =  "Brick and Stone  "
  10. aext[5] =  "Concrete block   "
  11. aext[6] =  "Hardboard siding "
  12. aext[7] =  "Log and Mortar   "
  13. aext[8] =  "Shingle, asbestos"
  14. aext[9] =  "Shingle, wood    "
  15. aext[10] = "Stone            "
  16. aext[11] = "Stone and Shingle"
  17. aext[12] = "Stucco           "
  18. aext[13] = "Timber and Stucco"
  19. aext[14] = "Vinyl siding     "
  20. aext[15] = "Wood siding      "
  21.  
  22. SET COLOR TO GR+/R
  23. @ 21,0 CLEAR TO 23,79
  24. @ 21,5 SAY "Up/Dn Arrow "
  25. @ 22,5 SAY "<Enter> "
  26. SET COLOR TO W+/R
  27. @ 21,17 SAY "= Move within pick list"
  28. @ 22,13 SAY "= Select from pick list"
  29.  
  30. SET COLOR TO BG/BG
  31. @ 3,49 CLEAR TO 19,69
  32. SET COLOR TO N/BG
  33. @ 3,49 TO 19,69
  34.  
  35. x = 1
  36. DO WHILE x <= 15 
  37.    @ x+3,51 SAY aext[x]
  38.    x = x + 1
  39. ENDDO
  40.  
  41. SET COLOR TO GR+/BG
  42. @ 4,51 SAY aext[1]
  43.  
  44. x = 1
  45. DO WHILE .T.
  46.    key = InKey(0)
  47.    DO CASE
  48.       CASE LastKey() = 5                         && <Up Arrow>
  49.            IF x = 1
  50.               LOOP
  51.            ENDIF
  52.            SET COLOR TO N/BG
  53.            @ x+3,51 SAY aext[x]
  54.            x = x - 1
  55.            SET COLOR TO GR+/BG
  56.            @ x+3,51 SAY aext[x]
  57.            LOOP
  58.            
  59.       CASE LastKey() = 13                        && <Enter>
  60.            REPLACE exterior WITH aext[x]
  61.            SET COLOR TO N/N
  62.            @ 3,49 CLEAR TO 19,69
  63.            EXIT
  64.       
  65.       CASE LastKey() = 24                        && <Dn Arrow>
  66.            IF x = 15
  67.               LOOP
  68.            ENDIF
  69.            SET COLOR TO N/BG
  70.            @ x+3,51 SAY aext[x]
  71.            x = x + 1
  72.            SET COLOR TO GR+/BG
  73.            @ x+3,51 SAY aext[x]
  74.            LOOP
  75.  
  76.       ENDCASE
  77. ENDDO
  78. RELEASE aext
  79. RETURN
  80.